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A USER-ORIENTED  MANAGEMENT  PROGRAM  FOR  PROJECT 
MONITORING  ON  A TIME-SHARE  COMPUTER  TERMINAL 


INTRODUCTION 

This  report  describes  a Fortran  time-share  computer  program  developed 
and  used  by  the  author  to  monitor  technical  progress  and  expenditures  on 
a number  of  simultaneous  projects  in  the  Search  Radar  Branch,  Radar  Division. 
The  program  design,  and  its  description  here,  are  user-oriented  for  ready 
adaptation  by  the  reader.  The  program  is  written  for  the  DEC-10  computer 
at  NRL.  A basic  feature  of  the  output  is  a plot  of  actual  past  expenditures 
combined  with  estimated  future  expenditures,  along  with  other  project 
information  such  as  technical  milestones,  major  procurements  and  staffing. 

The  program  covers  a single  fiscal  year  from  1 October  through  30  September . 

Another  NRL  management  program*  known  to  the  author  is  also  available. 
That  program  differs  from  the  one  described  here  in  that  it  is  executed 
by  batch  processing  on  the  ASC,  uses  a CALCOKP  plotter  and  does  not  include 
milestones  (although  the  latter  would  be  a minor  addition) . NSWC/WO  is 
also  understood  to  have  an  interactive  management  program,  but  information 
on  that  program  has  not  yet  been  received  by  the  author. 


SAMPLE  OUTPUT 

Figure  1 shows  a sample  of  a complete  program  output,  although  much  of 
the  sample  printout  may  be  omitted  at  the  option  of  the  user  by  appropriately 
answering  the  terminal's  interrogations  in  the  negative  when  it  offers 
particular  output  segments. 

As  shown  on  the  printout,  the  program  is  executed  by  using  a compound 
command  such  as: 

EX  MANAGE. FOR, R02 24. FOR 


where 


MANAGE. FOR  is  the  name  of  a general  main-body  program 

R0224.FOR  is  the  name  of  a specific  subprogram**  applying  only 
to  the  project  R02-24. 


*T.H.  Gauss,  "A  Fortran  Routine  to  Plot  Data  from  the  NRL  Job  Order  Status 
Reports,”  NRL  Document  527856,  22  April  1977. 

**Separately  storing  the  major  block  of  code  (MANAGE. FOR)  common  to  all  runs 
saves  substantial  disk  storage. 

Note:  Manuscript  submitted  January  16,  1978. 
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At  the  beginning  of  the  printout,  the  terminal  asks  the  user  if  a 
list  of  milestones  is  wanted.  In  the  sample  run,  the  user  replied  with  a 
1 (for  yes)  and  the  list  of  milestones  was  printed,  with  each  milestone 
being  followed,  in  parenthesis,  by  a target  completion  date,  (month,  day) 
for  the  current  fiscal  year  and  (month,  day,  year)  for  dates  beyond  the 
current  fiscal  year. 

The  terminal  then  asks  for  the  current  date  of  the  run  (month,  day) . 

The  program  was  designed  to  be  run  using  the  last  day  of  each  nominal 
thirty-day  month  as  an  input  here  (nominally  in  a form  such  as  "2,30"  for 
February,  etc.),  although  the  actual  run  would  be  made  at  a later  date  when 
the  expenditure  information  printout  (Job  Order  Status  Report)  becomes 
available  from  the  NRL  Budget  Office.  The  information  from  the  Job  Order 
Status  Report  is  entered  at  the  next  terminal  interrogation  in  the  form  of 
four  input  numbers;  Expenditures,  Obligations,  Encumbrances,  and  Extra. 

The  latter,  which  is  not  self-explanatory,  is  an  expenditure  amount  to  be 
added  to  each  month  of  the  future  extrapolation  to  account  for  average  travel, 

ESD  support,  small  procurements,  etc.,  which  are  not  the  two  major  components 
of  the  extrapolation,  namely  (1)  labor  and  (2)  major  procurements. 

After  receiving  the  four  inputs  (Expenditures,  Obligations,  Encumbrances 
and  Extra),  the  terminal  plots:  (1)  a curve  of  **s  along  the  top  border, 
representing  the  Budget  Funding;  (2)  a curve  of  +*s,  representing  the  buildup 
of  funds  received  from  the  sponsor  up  to  the  current  date  or  expected  in 
installments  from  the  sponsor  at  specified  future  dates (3)  a curve  of  .*s, 
representing  the  planned  spending  that  includes  the  major  procurements  at 
specified  dates,  with  the  remainder  of  the  spending  being  linearly  interpolated 
to  exactly  use  up  the  Budget  Funding  amount  and  (4)  a curve  of  0*s,  representing 
actual  spending  (Expenditures  + Obligations  + Encumbrances)  up  to  the  current 
date  and  extrapolated  spending  estimates  for  the  future,  taking  into  account 
the  scheduled  major  procurements,  the  labor  assigned  to  the  job  and  the 
EXTRA  amount  added  each  month. 

Following  the  graph,  the  user  is  interrogated  with  regard  to  whether  a 
list  of  major  procurements  is  desired.  If  answered  affirmatively,  the  list  is 
printed  out  with  the  name,  date  and  cost  of  each  procurement. 

The  next  interrogation  of  the  user  deals  with  the  identification  of  the 
project  staff  scheduled  for  the  job.  If  answered  affirmatively,  the  list  of 
staff  members  is  printed  along  with  the  fraction  of  time  to  be  spent  on  the 
project. 

Finally,  the  terminal  queries  the  user  on  whether  the  numerical  values 
plotted  on  the  graph  should  be  printed  out.  -?^n  affirmative  answer  results  in 
the  printed  values  along  with  a running  balance  showing  the  difference  between 
the  available  funds  and  the  expenditures  (actual  to  current  date  and  extrapolated 
thereafter) . The  lower-most  right-hand  nimiber  gives  the  estimated  surplus  at 
the  end  of  the  fiscal  year. 


*In  Fig.  1,  the + curve  has  replaced  the  * curve  along  some  of  the  top  border. 
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As  shown  on  the  sample  printout,  the  cost  of  a run  can  be  less  than  $1,00 
if  no  compilation  is  required.  With  compilation  (and  no  disk  storage  charge 
for  a compiled  version  of  the  program) , the  run-cost  of  the  job  shown  was 
$1.05  instead  of  the  $.60  indicated  on  the  printout. 

SETTING  UP  A PROJECT  ON  THE  COMPUTER  PROGRAM 

The  computer  program  consists  of  four  parts: 

(1)  A general  Fortran  file,  called  MANAGE. FOR,  which  is  used  for  all 
projects. 

(2)  A specific  Fortran  file  for  each  project,  designated  by  a name  such 
as  R02  24.FOR,  constructed  from  a project  nxamber  such  as  R02-24;  this 
contains  project  data. 

(3)  A specific  short  file  for  each  project  (consisting  of  13  numbers) , 
designated  by  a name  such  as  SR0224,DAT,  again  constructed  from 
the  project  number,  but  preceded  by  an  "S";  this  file  consists  of 
the  (actual  and  extrapolated)  monthly  expenditures  that  are  plotted 
by  the  symbol  "0"  on  the  graph  and  is  updated  each  month  during  a 
regular  program  run. 

(4)  A general  file  called  PSAL.DAT  which  contains  personnel  weekly 
salaries  referenced  by  personnel  ID  numbers. 

A listing  of  the  general  Fortran  file  (Item  (1))  is  given  in  Appendix  A 
and  need  not  be  altered  for  running  with  different  projects. 

A listing  of  a sample  specific  project  Fortran  file  is  given  in  Appendix  B. 
One  of  these  is  needed  for  each  project.  The  project  data  information  in  the 
listing  is  as  follows: 

Subroutine  Data 

NAME  = storage  file  associated  with  a specific  project,  e.g.  SR0292.DAT 

BF  = total  budget  funding  for  project 

AF  = available  funds  received  from  sponsor  at  start  of  fiscal  year, 

1 October 

IAFE(I,1),  IAFE(I,2)*  = month,  day  on  which  the  Ith  installment  is 

to  be  received  for  available  funds  expected 

AFE(I)  = amount  of  the  Ith  installment  for  available  funds  expected 


*For  all  matrix  inputs,  note  dimensions  on  listing  for  maximum  number  of  items 
allowed  in  present  code.  Dimensions  may  be  modified  as  desired  by  the  user. 
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IPdrD,  IP(I,2)  = month,  day  on  which  the  Ith  major  procurement  is 
to  be  charged 

P(I)  = amount  of  Ith  major  proc\irement 

IPID  (I)  = ID  number  of  Ith  man  on  job 

PID  (I)  = fraction  of  time  on  job  for  Ith  man 

Subroutine  Mile  = a list  of  milestone  names  and  dates 

Subroutine  Pro  = a list  of  major-procurement  names,  dates  and  amounts 

Subroutine  Staff  = a list  of  staff  names  and  fraction  of  time  on  job. 

To  set  up  the  first  job,  the  file  PSAL.DAT  must  be  created  by  running 
a program  such  as  INFl.FOR,  shown  in  Appendix  C.  This  loads  the  file 
PSAL.DAT  with  salaries  (per  manweek)  in  order  of  personnel  ID  numbers*. 

The  salaries  are  taken  from  a table  of  the  type  shown  in  Appendix  D,  supplied 
by  Division  Offices,  which  includes  nominal  average  salary,  G&A  and  Division 
Indirect  costs  as  a function  of  GS  grade,  as  charged  to  the  contract  by  the 
central  Budget  Office. 

Then  a project  data  file  (e.g.,  SR0224.DAT)  must  be  created  by  running 
the  program  INF. FOR,  shown  in  Appendix  E. 

With  all  four  of  the  above-described  programs  available  in  the  computer, 
a run  can  be  executed  using  the  compound  command 

EX  MANAGE. FOR fRO 2 2 4, FOR 
MONTHLY  USE  OF  THE  PROGRAM 

The  program  assumes  that  each  month  consists  of  thirty  days. 

After  expenditure  information  for  October  is  received  from  the  NRL  Budget 
Office,  the  first  run  of  the  program  is  made  using  the  input  date  10,30.  The 
expenditure  information  is  permanently  stored  in  the  second  element  of  the 
data  file  (SR0224.DAT),  with  the  first  element  being  a zero  for  the  date  9,30 
of  the  previous  fiscal  year. 

The  second  run  is  made  using  the  input  date  11,30,  and  so  forth  for 
successive  months.  On  each  run  the  actual  expenditures  are  permanently 
stored  for  the  cvirrent  month,  as  they  were  for  the  previous  months,  thus 
allowing  the  data  file  (SR0224.DAT)  to  build  up  real  expenditures  for  the 
past  and  present  months  and  calculated  expenditures  for  the  future 
months.  (This  file  is  plotted  by  0*s  on  the  output  graph.) 


*The  Branch  personnel  are  simply  indexed  in  order,  to  provide  these  Branch 
ID  numbers. 
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APPENDIX  A 


LISTING  OF  GENERAL  FORTRAN  FILE,  MANAGE. FOR 
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09800 

CRLL  SCAN 1 ( I X J P J I P J nELP> 

09300 

RRRRV  (1 5 R>  =RRRRV  (I-i +SLnPE+nELP 

094  00 

CRLL  SCANS  (IX  j RFE  - I RFE.-  HELE) 

09500 

RRRfi'i'  ( I J 3>  =RPRR  V ( I - 1 , 3>  +riELF. 

•j96  0 0 

I F ( I . EC! . MD'’  RRRRV  i f 4)  =CE 

09700 

• I F ( I . AT , Nn>  RRRRV  ( I , 4;'  =RRRR V ( I - J , 4>  +CUMSRl.+nELP+EXTRR 

09800 

OPEN  (LINI  T=R 0 , DEV I CE=  ' USK ' ? F I LE=NRME .-  RCCESS= ' SFC'Dl IT  - .■> 

0990  0 

WR I TE  (S  n .-  6>  (RRRRV  1 1 .-  4-  , T I = ). , j 3> 

1 0 0 0 0 

CLOSE  (I..IN  I T=S  0 - DEV  I r;E=  ' USK  ' .-  F I LE=NRME> 

1 01  00 

.1  1 0 

CnNTINi..lE 

10800 

CRLL  RPRPH(BF,  RRRRV,:. 

1 0300 

WRITE  (5-  .1FJ> 

1 040  0 

18 

FORMAT  (.'-.^IX- 'LIST  rjF  MR..IOR  PROCLIPEMENIS'-  VFS  = t , MO=ri- > 

1 0500 

RCCEPT4.,IRnS 

10600 

IF<  IRNS.  EC'.  I>  CRLL  PRO 

J 0700 

WRITE  ...5-  Sl> 

1 080  0 

81 

FORMAT  (..-  iX- 'PRO  lEC.T  SIRFF  i-  VES=I  - Nn=r.l- ;• 
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1 09riri 

.1 X ono 

.1  .t  .1.0 1.1 

I. .1S00 
.1  1300 
1 1 4 i:i  11 
.1 1 5 0 0 

II. 510 
11600 
1 1?00 
11710 
iiaoo 
11900 
13000 
13100 
13300 
13300 
13400 
13500 
13600 
13700 
13300 
13900 
13000 
131  00 
13300 
13300 
13400 
13500 
13600 
13700 
13300 
13900 
14  0 00 
14100 
14300 
14300 
14400 
14500 
14600 
14700 
14800 
1 4900 
15000 
15100 
15300 
15300 
15400 
15500 
15600 
15700 

158  0 0 

1 59  0 0 
1 6 0 1'l  0 
1 6 1 « J 0 
16300 
1 6300 
16400 
16500 
1 66  i*i  I'l 
.16700 


fiCCEPT^j.  ThMS 

1>  CHl.l.  STftFF 

11RITF<5:.  19> 

19  FnRMHT<//lX.  ^L.TST  HF  MUMF.RTCftL  VRUHES  UW  6RhPH'-*  VRS=1  ? Hn  = 03> 
fiCCEPT*,  Ifim 
1F<1RM3.EQ,  1>  I.IRTTf{c.5j.9> 

9 FnRNHT<//3X?  ? lOX?  MX."-  **  . S 14K^  ' + ' j 14K? 

1 'O^yX  OX.-  ^BhL  ^^-O::' 

1F(.TRN3,EP.  0>  an  TH  130 
no  140  1=1? 13 

BflL=F!RRFlV  Cl , 3>  -HRRfiV  Cl  ? 4> 
iNri=i-4 

1FCKLE.4>  IMD=.T.+8 

UIRITFC5?8>  INri.-  CftRRRYCl?  J>  ? J=l?4>  ? BRl. 

8 FORNFfT  C3X-  13?  4 C5X.'-  FI  0,  0;>  ? 5X.'.  FI  0.  0) 

140  r;nMTiMi.iE 
130  cnNTirii..iE 
EMU 

SUBRni..lTlME  SCFIHI  CIX?R?  IQ.-OEl.> 

Jl  1 NEM3 1 HM  Q C 1 5>  ? 1 Q C 1 5 ? 3> 

riEL=0. 

pn  100  1=1? 15 

17=iriftV;v:ClQCl?  1>  ? IR  Cl  ? 3>  ? IQ  Cl  ? 3>  > 

100  IFCI7,LE.  IX.ftMn.  17,61,  IX-30>  rjEL=riEL+R Cl> 

RETURN 

EMP 

SUPRnilTlME  SCfiN3ClX?R.-  IR?PEL.> 

PlNEMSinH  RC6>?IRC6?3> 

PEI.=  0, 

Pfl  1 I'l  I'l  I = 1.-6 

I7=1PRVSC1RC1  ? 1>  ? 1RCI?3>  ? lRCl.-3>) 

100  IFC17,LE,  1X,F1MP,  17,  GT,  lX-30>  PEL=PEL+R  < !.'> 

RETURN 

EMP 

SUBRnilT  1 HE  SCfiMP  C I P I P ? P I P ? PS .-  CHNSRIJ 
PIMENSIflN  IRIPC3i:i>  ?PIPC30> 

PlflEMSinM  PSC35> 

U=0, 

pn  100  1=1? 30 

M=1PIPCT> 

SRL=RS  CN> 

W=l.,i+SRI.^P1PCI> 

100  CnMTIMI..IE 

CnMSRL=l.N^45,^13, 

RETURN 

ENP 

INTEGER  FUNCTION  lPRYSCh?JP.:' 

IFCN,LE,9>  NP=N+3 
I F CM , GT , 9>  NP=NnP  CM+R ? 1 3> 

IPRV.3=MP^30+1P 

RETURN 

ENP 

Sl.lBRnUTlNE  GRRPH  CBF?  RRRRV> 

PIMENSinM  RRRRV  C13.-  4.> 
p 1 MENS  1 HN  Pl.nT  C33 ? 1 5) 

PIMENSinM  KRLHT.:  t5> 

IFLRG=0 

ISCPL=30 

pn  100  T=1jI3CRL 
pn  100  ..1=1?  15 

Pl.f]TCT,..l>=lH 
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.1 68  0 0 
.1690  0 
17000 
17100 
17800 
17300 
17400 
17f^00 
17600 
17700 
17800 
17900 
18000 
18100 
13800 
18300 
18400 
18500 
18600 
18700 
18800 
18900 
19000 
19100 
19800 
19300 
19400 
19500 
19600 
19700 
19800 
19900 
80000 
801  00 
80800 
80300 
t?0400 
80500 
06  0 0 
80700 
8 08  0 0 


100  CGNTINI.iR 

nn  110  K=i iscRi.+i 

PLnT<K5  8>  = lH.T 

IF amn <k-i ? 5> , fq,  o>  flgt ck ? 8.> =ih+ 

IF  .EQ.  1>  lFLfti5=IFLfi8+l 

IF  CMDH  <K?  5> . EQr 1>  PLOT  OG  1>  = <BFy  S> ♦ <7-IFl  fl6> 

110  CnriTIHUF 

nn  130  j=3!.i5 

1 1=  CISCRL+l)  --HRRfiV  1>  ♦ISCRL.^'PF 

• 18=  <ISCRL+1>  -RRRRV  <..1-8?  8.'>  ♦ISCRl./BF 

13=  <I3CRl.+  l>  -RRRRV  <..l-8?  3>  ♦ISCRL^BF 
I4=<ISCRL+l>-fiRRRV  <J“8?  4> ♦ISCRL/BF 
PLnT<Il,  J;.=1H+ 

PLnT<I8?.l>=lH. 

PLnT<I3,  J>=lH+ 

IF(I4.LT,  1>  GH  Tn  130 
PLnT<I4?  J>=1H0 
130  CGHTIRUE 

nn  180  si=3?i5 
180  PLnT.a3r;RL+8?j.'^=iH- 
WRITFC.S.t  I4>  ' 

14  FnRMRT<//lX? -'♦=BLiriGFT  FURniMG;  . =PLRHriFrj  3PFHnTNG^> 
WRITE  <f.,  15> 

15  FnRMRT<lX?  ^+=RVRILRBLF  FUHDS;  0=EXPFHn.  COMMIT, 
nn  140  I=l?ISCRL+8 

IFa'inD<I-l?5>  0>  WRITE  <5?  1 0>  CPLGT  <I  ? L>  ? L=1  j 1 5> 

10  FnRMRT<lX?F8,  0?  14R4;p 

iF<:Mnj:i<i-i.-.5.VEQ.  o>  cn  tg  140 

WRI TE  <5? 1 1>  <PLnT  <I , u J L=1 ? 15> 

1 1 FGRMRT  <1X.^  R8?  14R4> 

140  CGHTIHIIE 

nn  160  1=1? 8 
160  m.nT.::i>=.iH 
nn  170  1=3.^  15 

I F < K LF , 6:>  KPl.nT  < T > = I +6 
I F < I , GT , 6>  KPl.nT  < I > = .1  -6 
170  CnMT.Tr-|I..IE 

WR I TE  <5 ? 1 8>  vKPLOT  j;.  ..1=  l , 1 
18  FORMRT  <1X,R8,R8?  13<.1X?  18?  1X>> 

RFTIIRN 

EMU 
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APPENDIX  B 


LISTING  OF  SPECIFIC  PROJECT  FORTRAN  FILE,  R0224-FOR 


TV  PR 
0 I'l  t 0 I?! 

0 ijp  n n 

0 0;-:  11 M 

00400 

00500 


R0^P4. FDR 

M .IT;Rni  -IT  I HR  j;ihT R ‘"FiR  , PR , p , T P , RRR , T RRR , T P T D ^ P T 0 ^ HRMR) 
0 T r*1RH^>  T riH  RRR  ^ T RF R »:.Ri » rJ>  i T P T 0 < 0;i  ^ p T Fi  < Ti  > 

T)  T MRHf^  T DH  IPCX^^  ?:>  . P U 5> 

Onil.Ffl.R  PPRCTSTHH  HRMR 
HRMR=  Si.P 0RrJ4 - FjRT 


I'l  0 P 0 rj  .F;  R = 1 R 5 i:i  0 0 . 

0 07  00  RR= 75  il  0 0 . 

007t0  TRFRCt^  1)=:-:;  TRRR  CT  . R>  =30 

007R0  RRR  <t> =50000- 

00300  TPT.0  'a:?  =1.3?  PTFi  <1.>  =.  3 

0 03  0 0 T P T T.\  (.rL>  =RR  ? P T 0 <.p:>  = - 3 

00310  TPT0C3>=3?  PT  0 'a:.;' =.  3 


0 033  0 

0 033  0 
00340 

01  000 
01 1 00 
01300 
01300 
01400 
01500 
0151  0 
0 1 53  0 
01530 
01540 
01550 
|■J3  0 0 0 
03100 
03300 
03300 

034  00 

035  0 0 


tpuk4>=i7;  ptti(:4;'=.3 
T P T 0 C5>  = 1 3 ; P Ui  •:.5>  = - 3 
T P T Fi  CR>  =33  ? P T 0 ^ = . 4 

RRTIJRH 
RHFi 

3UBRni.lTTHR  MTI.R 
MRTTR  05^  1> 

\ FnRMHTc/tx, 't-  cnriPi-RTinN  H:  .rjpj.Tv.  nF  trrkx  rn  pax  r. 

t <R' RP>  '^tX' 'R-  PRRI.TM.  RVRI..  flF  TRRKX  O' iiit  < 7P> 

P.  TH.'xTHl.I.RTinN  HR  PUl.SR  CnMPRR.'::.^ - ORVICR  CnMPI.RTF.n  <.pnp.R^79>' 
rvhi..  hr  pui.sr  cnNPRRS.s.  orvtcr  cnriPi.RTRn 
4yXXi'5.  RRPT.  nM  TNTTTrtl.  PRRFnRM-  CnriPI.RTR.n 
5.^1.X''6-  MRfl??I.IPRMRrHTr^  RSTAPI.T.-^HTMA  VRCTHR  MT.-^S  OT-STAMCR 
6 <:A' AO' 80> '^tX' '7.  cnriPi.RTR  rrpt.  nrn  pf-Rrarmampr  <;R'.30'fto>''> 

RRTIJPN 

RtlO 

AMBRnilTTNR  PRH 
MRTTR  (?=:' t> 

t FflRMAT  (>  tX' ■'Mn  MA  JOR  PRnCURRMRMTS  '> 

RRTIIRM 


036  0 0 


RMFi 


037  00 
03300 
033  00 
033 1 0 
03  0 0 0 
031  00 


3IJ.F:RniJTTHR  3TRRR 
MRTTR<5^  O 

RORMAT  <;,'-JX'  •■Hni.lARJ:i  f . .A>  ' nRM.ATRTh  f . 3.>  ' CROS.A  C.ri>  ' I.TPKA  < - A;-  ' 
J MAVA  c . A>  ' . J . l,JARri  - 4>  ' > 

RRTIJRM 

RNA 
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APPENDIX  C 


LISTING  OF  PROGRAM  INFl.FOR  WHICH  CREATES  THE 
DATA  FILE  OF  PERSONNEL  SALARIES,  PSAL.DAT 


. type 

OO.t  00 
ooaoo 

00300 
00400 
00500 
nOftOO 
00700 
00300 
00900 
01000 
01100 
01300 
01300 
0 1 4 0 0 
01500 


llAFX.  FDR 

n I MENS I ON  P3<35> 

nP3N  <:UNIT=P1 9 0Et^^.TCE='J}3K'  J FIl,P=^PSRL.  ,fiCCf:33=^3EG»ntlT^> 

PS<1>=1653,  ;PSC3>=1137.  ;P3<3>=1504,  ;PS<4>=1336, 

P3<5>=837,  5PSC8>=1338.  ;PSC7>=1364,  ;PS<a>=t3A4, 

P3  <9>  = 1 364 , ? PS  < 1 0>  = 1 336 . ; PS  1 1 > = 1 03 1 , ; PS  < 1 3>  = 1 336 , 

PS  < X S>  = 1 65S . 5 PS  C r 4>  = 1 5 04 , j PS  < J.  5>  = 1 S64 , j PS  < J.  6>  = T S64 . 

PS<1?>  = 1364,  5PS(:i8>=1364.  ;PS<19>=1SS6,  ;PS<P0>  = 1504, 

PS  <s.1.  =1364.  ; PS  CSS)  =1504.  ; PS  (;S3)  =1S36.  j PS  <S4>  =1364. 

PS  <S5>  =331 . ; PS  <S6)  =93S.  ; PS  (S7>  =1364.  j PS  (.S3)  =1364. 
PS<S9)=1S36.  ;PS<:30>=165S.  .;PS<31)=1504.  jPS<3S)=lS36. 

PS  <33) =997. ; PS  <34) =1504. j PS<35) =165S. 

WRITEfSl j 1)  CPS  Cl) j 1 = 1 j35) 

1 • FnRMfiTC35F5. 0) 

Cl.nSE  C(.IN I T=3 1 , riF. V I CF=  ' nSK  ' j F I l.E=  " PSfll. . riflT  ' ) 

END 
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APPENDIX  D 


SAMPLE  TABLE 
AS  A 


SHOWING  CHARGED  COSTS  PER  MANWEEK 
FUNCTION  OF  GS  GRADE  LEVEL 


August  1977 


FY-1978 

Man  Week  Rates 


GS-l 

745 

GS-2 

768 

GS-3 

797 

GS-4 

831 

GS-5 

867 

GS-6 

932 

GS-7 

966 

GS-8 

997 

GS-9 

1031 

GS-10 

1078 

GS-11 

1127 

GS-l  2 

1236 

GS-l  3 

1364 

GS-14 

1504 

GS-l  5 

1652 

The  above  rates  include  pay,  fringe  benefits  accumulation  and 
applied  G&A  and  Indirect  overhead  per  man  week. 


G&A  436/week 

Indirect  145/week 


581/week 
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APPENDIX  E 


LISTING  OF  PROGRAM  INF. FOR  WHICH  CREATES  THE  PROJECT  DATA 
FILE  SR0224.DAT  CONTAINING  REAL  EXPENDITURES  FOR  THE  PAST 
AND  PRESENT  MONTHS  AND  CALCULATED  EXPENDITURES  FOR  THE 
FUTURE  MONTHS 


TVPF 
OOt  Ou 
0 OP  0 0 
0 03  0 0 
004  on 
0 05  0 0 
0 0 0 
00700 
0 1*1.3 1*1 0 


THF-FOR 

OT MENS TON  XCt3> 
on  too  T=t.t3 
too  xa>=o. 

□PEN  C I JM  T T=p  0 ^ OE V T r:E=  03K " F T I ,E=  3R 0PP4  - ORT  - , RCrjE.’^:?^ =:':Enni  JT  ^ > 
. IJRTTECPO.  t>  <:xa>  ^ T = t^  t3> 
t FnRMRT(:i..3Ft  0.  ri> 

Cl.nSE  (liRTTspO^  OEVTCE^'  03K^  ^ FTLE=^:S:R0Pr:4-  ORT^;. 

EMO 
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